home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / text / manipulation / heddley.lha / Heddley / hedd_empty.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1994-07-03  |  974 b   |  21 lines
  1. /* .rexx                                                        */
  2.  
  3. OPTIONS RESULTS                             /* enable return codes      */
  4.  
  5. OPTIONS FAILAT 6                            /* ignore warnings          */
  6. SIGNAL ON SYNTAX                            /* ensure clean exit        */
  7. SIGNAL ON FAILURE                           /* trap Heddley errors      */
  8.  
  9.  
  10. EXIT                                        /* quit this macro          */
  11.  
  12. SYNTAX:                                     /* ARexx error...           */
  13.  
  14. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) /* report it...          */
  15. EXIT                                        /* exit                     */
  16.  
  17. FAILURE:                                    /* Heddley error...         */
  18. ERRV=address().LASTERROR                    /* get name of error var.   */
  19. SAY "Error:" VALUE(ERRV)                    /* report the error         */
  20. EXIT                                        /* exit                     */
  21.